; * lisp/emacs-lisp/macroexp.el (macroexp--expand-all): less consing

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index b87b749dd761fe142cd1b855059eadb84ef9da3f..bb4797cac8b18b584ebb52e373255b2070f5bfc8 100644 (file)
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -351,7 +351,7 @@ Assumes the caller has bound `macroexpand-all-environment'."
              (let ((default-tail nil)
                    (n 0)
                    (rest clauses))
-               (while rest
+               (while (cdr rest)
                  (let ((c (car-safe (car rest))))
                    (when (cond ((consp c) (and (memq (car c) '(quote function))
                                                (cadr c)))